home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SCREEN.SWG / 0048_Turn SCREEN On-Off.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-26  |  594b  |  21 lines
  1. {
  2. I use alot of line draws and some text on the screen....the lines come out
  3. first and then the text a second or two later....is there a way so that the
  4. whole output comes at once.  I tried Setvisualpage and setactivepage but the
  5. the whole output screen is off.
  6.  
  7.         To Turn On/Off the Screen you may use these procedure
  8. }
  9. Procedure OnScreen;
  10. Begin
  11.      Port[$3c4]:=1;
  12.      Port[$3c5]:=Screen_AttriBute_Tempolary;
  13. end;
  14.  
  15. Procedure OffScreen;
  16. Begin
  17.      Port[$3c4]:=1;
  18.      Screen_Attribute_Tempolary:=Port[$3c5];
  19.      Port[$3c5]:=Screen_AttriBute_Tempolary or $20;
  20. end;
  21.